# leaflet map for central park
 leaflet() %>% 
  addTiles() %>% 
  fitBounds(-73.9823592,40.7636484,-73.9492441, 40.800553)

## Table 1

primary_fur_color <- nyc_squirrels_clean %>%
  group_by(primary_fur_color) %>% 
  summarize(count = n())

df <- nyc_squirrels_clean %>%
  group_by(running) %>% 
  summarize(count = n())